home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Siegfried Copy.adf / SFC_Install_2.x < prev    next >
Text File  |  1989-05-19  |  4KB  |  179 lines
  1. ;------------------------------------------
  2. ; Installer Script für Siegfried Copy 1.3 -
  3. ;------------------------------------------
  4.  
  5. (set #Begruessung
  6. (cat "\nMit diesem Installationsprogramm können Sie\n\n\nSiegfried Copy\n\n\n auf Ihre "
  7.      "Festplatte installieren. Die komplette Installation läuft vollständig "
  8.      "automatisch ab.\n"
  9.      "Auf Ihrer Festplatte müssen 1,0 MB Platz frei sein!\n\n\n"
  10.      "Drücken Sie \"Proceed\", um fortzufahren.\n"
  11.      "Drücken Sie \"Abbruch\", um abzubrechen. "))
  12. (set #Platten-Hilfe
  13. (cat "\nWählen Sie die Partition Ihrer Festplatte aus, auf der "
  14.      "Sie gerne Siegfried Copy installieren möchten. Danach klicken Sie "
  15.      "auf \"MAKE NEW DRAWER\" und geben hinter dem Doppelpunkt den "
  16.      "Namen des Verzeichnisses an (z.B. WORK:SF_Tools). Dann drücken Sie "
  17.      "auf \"PROCEED\" und das Programm beginnt mit der Arbeit.\n\n"
  18.      "\"Help...\" zeigt diesen Text."))
  19.  
  20. (set #Sounds
  21. (cat "\n\n  Hier können Sie entscheiden ob die Sound-Modules\n"
  22.      "   auf die Festplatte installiert werden sollen."))
  23.  
  24. (set #Soundname
  25. (cat "\n\n  Hier können Sie entscheiden welcher mod.Sound\n"
  26.      "   auf die Festplatte installiert werden soll."))
  27.  
  28. (set #Samples
  29. (cat "\n\n    Hier können Sie entscheiden ob die Samples\n"
  30.      "   auf die Festplatte installiert werden sollen."))
  31.  
  32. (set #Samplesname
  33. (cat "\n\n    Hier können Sie entscheiden welches Sample\n"
  34.      "   auf die Festplatte installiert werden soll."))
  35.     
  36. (set #Plattenverz  (cat "In welches Verzeichnis soll Siegfried Copy\nkopiert werden?"))
  37.  
  38. (message #Begruessung)
  39. (welcome)
  40.  
  41. (
  42.    (set @default-dest
  43.       (askdir
  44.          (prompt #Plattenverz)
  45.          (help   #Platten-Hilfe)
  46.          (default "WORK:SF_Tools")
  47.       )
  48.    
  49. )
  50.  
  51. (if                                          ; Verzeichnis erzeugen
  52.     (= (exists @default-dest) 0)
  53.     (makedir @default-dest)
  54.         )
  55.     (makeassign "SF_Tools" @default-dest)
  56.     (onerror
  57.     (cleanUp)
  58.         )
  59.             (makedir "SF_Tools:Modules"
  60.         (prompt "\n\n\nSchublade Modules wird eingerichtet")
  61.         (help "In Modules werden mod.Sounds abgelegt")
  62.         (infos)
  63.         (confirm)
  64.           )
  65.              (makedir "SF_Tools:Samples"
  66.          (prompt "\n\n\nSchublade Samples wird eingerichtet")
  67.          (help "In Samples werden Soundeffekte abgelegt")
  68.          (infos)
  69.          (confirm)
  70.            )
  71.  
  72.     (askdisk
  73.         (prompt "\n\n\nBitte legen Sie die Diskette \"Siegfried Copy\" ein!")
  74.         (help #Plattenverz)
  75.         (dest "SiegfriedCopy")
  76.      )
  77. )    
  78.  
  79. (complete 5)
  80.  
  81.  
  82. (copyfiles
  83.         (prompt "Kopiere das Hauptprogramm SFC")
  84.         (help "Jetzt wird das Hauptprogramm kopiert")
  85.         (source "SiegfriedCopy:SFC")
  86.         (dest   "SF_Tools:")
  87. )
  88.  
  89. (complete 10)
  90.  
  91. (copyfiles
  92.         (prompt "Kopiere SFC.Info")
  93.         (help "Jetzt wird das Info zum Hauptprogramm kopiert")
  94.         (source "SiegfriedCopy:SFC.Info")
  95.         (dest   "SF_Tools:")
  96. )
  97.  
  98. (complete 30)
  99.  
  100. (user 2)
  101. (set hardware (askchoice (prompt "Bitte auswählen")
  102.                 (help #Sounds)
  103.                 (choices "Keine mod.Sounds kopieren"
  104.                 "Alle mod.Sounds kopieren"
  105.                 )
  106.                 (default 1)
  107.     )
  108. )
  109.  
  110. (if (= 1 hardware)
  111.     (
  112.     (user 2)
  113.          (copyfiles
  114.      (prompt "Bitte Module auswählen")
  115.      (help #Soundname)
  116.      (source "SiegfriedCopy:modules")
  117.      (dest "SF_Tools:Modules")
  118.      (pattern "mod.#?")
  119.      (files)
  120.      (confirm)
  121.       )
  122.    )
  123. )   
  124.  
  125. (complete 50)
  126.  
  127. (user 2)
  128. (set hardware (askchoice (prompt "Bitte auswählen")
  129.                 (help #Samples)
  130.                 (choices "Keine Samples kopieren"
  131.                 "Alle Samples kopieren"
  132.                 )
  133.                 (default 1)
  134.     )
  135. )
  136.  
  137. (if (= 1 hardware)
  138.     (
  139.     (user 2)
  140.          (copyfiles
  141.      (prompt "Bitte Samples auswählen")
  142.      (help #Samplesname)
  143.      (source "SiegfriedCopy:Samples/")
  144.      (dest "SF_Tools:Samples")
  145.      (pattern "#?.raw")
  146.      (files)
  147.      (confirm)
  148.       )
  149.    )
  150. )
  151.  
  152. (complete 80)
  153.  
  154. (copyfiles
  155.         (prompt "Kopiere die Siegfried.Library")
  156.         (help " ")
  157.         (source "SiegfriedCopy:Libs/Siegfried.Library")
  158.         (dest   "Libs:")
  159. )
  160.  
  161. (complete 95)
  162.  
  163. (copyfiles
  164.         (prompt "Kopiere das Siegfried.Brainfile")
  165.         (help " ")
  166.         (source "SiegfriedCopy:S/Siegfried.Brainfile")
  167.         (dest   "S:")
  168. )
  169.  
  170. (complete 100)
  171.  
  172. (message (cat 
  173.    "Installation von Siegfried Copy beendet.\n\n"
  174.    "Entfernen Sie nun die Diskette aus Ihrem Laufwerk\n "
  175.    "und starten Sie Siegfried Copy.\n\nViel Spass beim kopieren!")
  176. )
  177.  
  178. (exit)
  179.